sub fun1
{
	print "in fun1\n";
	return 1;
}

sub fun2
{
	my $var = $_[0];
	return $var;
}

#we can omit '()' when calling functions.
my $a = fun1; 
print "a=$a\n";

#we can omit '()' when calling functions using parameterss.
my $b = fun2 100;
print "b=$b\n";